home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / won.bas < prev   
BASIC Source File  |  1993-11-30  |  10KB  |  227 lines
  1. 10000 '
  2. 10010 ' 勝利処理
  3. 10020 '
  4. 10030 '
  5. 10040 ' WON.BAS
  6. 10050 '
  7. 10060 PALETTE 1,[255,0,0],1
  8. 10070 PALETTE 2,[80,0,0],1
  9. 10080 ''
  10. 10090 '
  11. 10100 *コマンド選択処理
  12. 10110 '
  13. 10120 COMMAND_NO=1
  14. 10130 LINE (COMMAND_WX,COMMAND_WY)-(COMMAND_WX+106,COMMAND_WY+52),PSET,%WINC,BF,%WAKUNAI_C
  15. 10140 SYMBOL (COMMAND_WX+26,COMMAND_WY+10),"死体を調べる",FBAI,FBAI
  16. 10150 SYMBOL (COMMAND_WX+26,COMMAND_WY+30),"撤退        ",FBAI,FBAI
  17. 10160 '
  18. 10170 *コマンド選択カーソル表示
  19. 10180 '
  20. 10190 IF COMMAND_NO=<0 THEN COMMAND_NO=2
  21. 10200 IF COMMAND_NO=>3 THEN COMMAND_NO=1
  22. 10210 IF COMMAND_NO=1  THEN COMMAND_CY=20
  23. 10220 IF COMMAND_NO=2  THEN COMMAND_CY=40
  24. 10230 SYMBOL (COMMAND_WX+6,COMMAND_WY+COMMAND_CY),"▽",FBAI,FBAI,%KASORU_C,1
  25. 10240 WAIT WA:P=PAD(1):PT=PTRIG(1)
  26. 10250 IF P=0 AND PT=0 THEN *コマンド選択カーソル表示
  27. 10260 IF P<>1 AND P<>5 AND PT<>1 THEN *コマンド選択カーソル表示
  28. 10270 IF PT=1 THEN
  29. 10280   IF COMMAND_NO=1 THEN *敵キャラ選択処理
  30. 10290   IF COMMAND_NO=2 THEN *フロアセレクタ
  31. 10300 ENDIF
  32. 10310 IF P=1 THEN COMMAND_NO=COMMAND_NO-1
  33. 10320 IF P=5 THEN COMMAND_NO=COMMAND_NO+1
  34. 10330 SYMBOL (COMMAND_WX+6,COMMAND_WY+COMMAND_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
  35. 10340 GOTO *コマンド選択カーソル表示
  36. 10350 ''
  37. 10360 '
  38. 10370 *敵キャラ選択処理
  39. 10380 '
  40. 10390 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  41. 10400 SYMBOL (TWINX+6,TWINY+10),"死体の選択",FBAI,FBAI
  42. 10410 LINE (WONENEMY_WX,WONENEMY_WY)-(WONENEMY_WX+288,WONENEMY_WY+132),PSET,%WINC,BF,%WAKUNAI_C
  43. 10420 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+10) ,NA$(7) ,FBAI,FBAI
  44. 10430 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+30) ,NA$(8) ,FBAI,FBAI
  45. 10440 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+50) ,NA$(9) ,FBAI,FBAI
  46. 10450 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+70) ,NA$(10),FBAI,FBAI
  47. 10460 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+90) ,NA$(11),FBAI,FBAI
  48. 10470 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+110),NA$(12),FBAI,FBAI
  49. 10480 '
  50. 10490 *敵キャラ選択カーソル表示
  51. 10500 '
  52. 10510 IF WONENEMY_NO=<6  THEN WONENEMY_NO=12
  53. 10520 IF WONENEMY_NO=>13 THEN WONENEMY_NO=7
  54. 10530 IF WONENEMY_NO=7   THEN WONENEMY_CY=20
  55. 10540 IF WONENEMY_NO=8   THEN WONENEMY_CY=40
  56. 10550 IF WONENEMY_NO=9   THEN WONENEMY_CY=60
  57. 10560 IF WONENEMY_NO=10  THEN WONENEMY_CY=80
  58. 10570 IF WONENEMY_NO=11  THEN WONENEMY_CY=100
  59. 10580 IF WONENEMY_NO=12  THEN WONENEMY_CY=120
  60. 10590 SYMBOL (WONENEMY_WX+6,WONENEMY_WY+WONENEMY_CY),"▽",FBAI,FBAI,%KASORU_C,1
  61. 10600 WAIT WA:P=PAD(1):PT=PTRIG(1)
  62. 10610 IF P=0 AND PT=0 THEN *敵キャラ選択カーソル表示
  63. 10620 IF PT=1 THEN
  64. 10630   IF NA$(WONENEMY_NO)="" THEN *敵キャラ選択カーソル表示
  65. 10640   GOTO *アイテム選択処理
  66. 10650 ENDIF
  67. 10660 IF PT=2 THEN *コマンド選択処理
  68. 10670 IF P=1 THEN WONENEMY_NO=WONENEMY_NO-1
  69. 10680 IF P=5 THEN WONENEMY_NO=WONENEMY_NO+1
  70. 10690 SYMBOL (WONENEMY_WX+6,WONENEMY_WY+WONENEMY_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
  71. 10700 GOTO *敵キャラ選択カーソル表示
  72. 10710 ''
  73. 10720 '
  74. 10730 *アイテム選択処理
  75. 10740 '
  76. 10750 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  77. 10760 SYMBOL (TWINX+6,TWINY+10),"アイテムの選択",FBAI,FBAI
  78. 10770 LINE (WONITEM_WX,WONITEM_WY)-(WONITEM_WX+288,WONITEM_WY+172),PSET,%WINC,BF,%WAKUNAI_C
  79. 10780 SYMBOL (WONITEM_WX+26,WONITEM_WY+10) ,INA$(IID(WONENEMY_NO,1)),FBAI,FBAI
  80. 10790 SYMBOL (WONITEM_WX+26,WONITEM_WY+30) ,INA$(IID(WONENEMY_NO,2)),FBAI,FBAI
  81. 10800 SYMBOL (WONITEM_WX+26,WONITEM_WY+50) ,INA$(IID(WONENEMY_NO,3)),FBAI,FBAI
  82. 10810 SYMBOL (WONITEM_WX+26,WONITEM_WY+70) ,INA$(IID(WONENEMY_NO,4)),FBAI,FBAI
  83. 10820 SYMBOL (WONITEM_WX+26,WONITEM_WY+90) ,INA$(IID(WONENEMY_NO,5)),FBAI,FBAI
  84. 10830 SYMBOL (WONITEM_WX+26,WONITEM_WY+110),INA$(IID(WONENEMY_NO,6)),FBAI,FBAI
  85. 10840 SYMBOL (WONITEM_WX+26,WONITEM_WY+130),INA$(IID(WONENEMY_NO,7)),FBAI,FBAI
  86. 10850 SYMBOL (WONITEM_WX+26,WONITEM_WY+150),INA$(IID(WONENEMY_NO,8)),FBAI,FBAI
  87. 10860 '
  88. 10870 *アイテム選択カーソル表示
  89. 10880 '
  90. 10890 IF WONITEM_INO=<0 THEN WONITEM_INO=8
  91. 10900 IF WONITEM_INO=>9 THEN WONITEM_INO=1
  92. 10910 IF WONITEM_INO=1  THEN WONITEM_CY=20
  93. 10920 IF WONITEM_INO=2  THEN WONITEM_CY=40
  94. 10930 IF WONITEM_INO=3  THEN WONITEM_CY=60
  95. 10940 IF WONITEM_INO=4  THEN WONITEM_CY=80
  96. 10950 IF WONITEM_INO=5  THEN WONITEM_CY=100
  97. 10960 IF WONITEM_INO=6  THEN WONITEM_CY=120
  98. 10970 IF WONITEM_INO=7  THEN WONITEM_CY=140
  99. 10980 IF WONITEM_INO=8  THEN WONITEM_CY=160
  100. 10990 SYMBOL (WONITEM_WX+6,WONITEM_WY+WONITEM_CY),"▽",FBAI,FBAI,%KASORU_C,1
  101. 11000 WAIT WA:P=PAD(1):PT=PTRIG(1)
  102. 11010 IF P=0 AND PT=0 THEN *アイテム選択カーソル表示
  103. 11020 IF PT=1 THEN *アイテム多過ぎねーか処理
  104. 11030 IF PT=2 THEN *敵キャラ選択処理
  105. 11040 SYMBOL (WONITEM_WX+6,WONITEM_WY+WONITEM_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
  106. 11050 IF P=1 THEN WONITEM_INO=WONITEM_INO-1
  107. 11060 IF P=5 THEN WONITEM_INO=WONITEM_INO+1
  108. 11070 GOTO *アイテム選択カーソル表示
  109. 11080 ''
  110. 11090 '
  111. 11100 *アイテム多過ぎねーか処理
  112. 11110 '
  113. 11120 DUMMYV=0
  114. 11130 IF IKIN(IID(1,12))=0 THEN DUMMYV=12
  115. 11140 IF IKIN(IID(1,11))=0 THEN DUMMYV=11
  116. 11150 IF IKIN(IID(1,10))=0 THEN DUMMYV=10
  117. 11160 IF IKIN(IID(1,9)) =0 THEN DUMMYV= 9
  118. 11170 IF IKIN(IID(1,8)) =0 THEN DUMMYV= 8
  119. 11180 IF IKIN(IID(1,7)) =0 THEN DUMMYV= 7
  120. 11190 IF IKIN(IID(1,6)) =0 THEN DUMMYV= 6
  121. 11200 IF IKIN(IID(1,5)) =0 THEN DUMMYV= 5
  122. 11210 IF IKIN(IID(1,4)) =0 THEN DUMMYV= 4
  123. 11220 IF IKIN(IID(1,3)) =0 THEN DUMMYV= 3
  124. 11230 IF IKIN(IID(1,2)) =0 THEN DUMMYV= 2
  125. 11240 IF IKIN(IID(1,1)) =0 THEN DUMMYV= 1
  126. 11250 IF DUMMYV=0 THEN
  127. 11260   DUMMYV=1
  128. 11270   LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  129. 11280   SYMBOL (TWINX+6,TWINY+10),"これ以上は管理できません",FBAI,FBAI
  130. 11290   SYMBOL (TWINX+6,TWINY+30),"何か捨てますか",FBAI,FBAI
  131. 11300   YES$="捨てる"
  132. 11310   NO$ ="このまま"
  133. 11320   GOSUB *二択処理
  134. 11330   IF NITAKU=1 THEN *捨てるアイテム選択処理
  135. 11340   IF NITAKU=2 THEN *コマンド選択処理
  136. 11350   '
  137. 11360   *捨てるアイテム選択処理
  138. 11370   '
  139. 11380   LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  140. 11390   SYMBOL (TWINX+6,TWINY+10),"捨てるアイテムの選択",FBAI,FBAI
  141. 11400   LINE (SUTERUITEM_WX,SUTERUITEM_WY)-(SUTERUITEM_WX+288,SUTERUITEM_WY+252),PSET,%WINC,BF,%WAKUNAI_C
  142. 11410   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+10) ,INA$(IID(1,1)) ,FBAI,FBAI
  143. 11420   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+30) ,INA$(IID(1,2)) ,FBAI,FBAI
  144. 11430   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+50) ,INA$(IID(1,3)) ,FBAI,FBAI
  145. 11440   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+70) ,INA$(IID(1,4)) ,FBAI,FBAI
  146. 11450   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+90) ,INA$(IID(1,5)) ,FBAI,FBAI
  147. 11460   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+110),INA$(IID(1,6)) ,FBAI,FBAI
  148. 11470   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+130),INA$(IID(1,7)) ,FBAI,FBAI
  149. 11480   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+150),INA$(IID(1,8)) ,FBAI,FBAI
  150. 11490   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+170),INA$(IID(1,9)) ,FBAI,FBAI
  151. 11500   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+190),INA$(IID(1,10)),FBAI,FBAI
  152. 11510   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+210),INA$(IID(1,11)),FBAI,FBAI
  153. 11520   SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+230),INA$(IID(1,12)),FBAI,FBAI
  154. 11530  '
  155. 11540   *捨てるアイテム選択カーソル表示
  156. 11550   '
  157. 11560   IF DUMMYV=<0  THEN DUMMYV=12
  158. 11570   IF DUMMYV=>13 THEN DUMMYV=1
  159. 11580   IF DUMMYV=1  THEN SUTERUITEM_CY=20
  160. 11590   IF DUMMYV=2  THEN SUTERUITEM_CY=40
  161. 11600   IF DUMMYV=3  THEN SUTERUITEM_CY=60
  162. 11610   IF DUMMYV=4  THEN SUTERUITEM_CY=80
  163. 11620   IF DUMMYV=5  THEN SUTERUITEM_CY=100
  164. 11630   IF DUMMYV=6  THEN SUTERUITEM_CY=120
  165. 11640   IF DUMMYV=7  THEN SUTERUITEM_CY=140
  166. 11650   IF DUMMYV=8  THEN SUTERUITEM_CY=160
  167. 11660   IF DUMMYV=9  THEN SUTERUITEM_CY=180
  168. 11670   IF DUMMYV=10 THEN SUTERUITEM_CY=200
  169. 11680   IF DUMMYV=11 THEN SUTERUITEM_CY=220
  170. 11690   IF DUMMYV=12 THEN SUTERUITEM_CY=240
  171. 11700   SYMBOL (SUTERUITEM_WX+6,SUTERUITEM_WY+SUTERUITEM_CY),"▽",FBAI,FBAI,%KASORU_C,1
  172. 11710   WAIT WA:P=PAD(1):PT=PTRIG(1)
  173. 11720   IF P=0 AND PT=0 THEN *捨てるアイテム選択カーソル表示
  174. 11730   IF PT=1 THEN *交換処理
  175. 11740   IF PT=2 THEN *敵キャラ選択処理
  176. 11750   SYMBOL (SUTERUITEM_WX+6,SUTERUITEM_WY+SUTERUITEM_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
  177. 11760   IF P=1 THEN DUMMYV=DUMMYV-1
  178. 11770   IF P=5 THEN DUMMYV=DUMMYV+1
  179. 11780   GOTO *捨てるアイテム選択カーソル表示
  180. 11790 ENDIF
  181. 11800 *交換処理
  182. 11810 DUMMY=IID(WONENEMY_NO,WONITEM_INO)
  183. 11820 IID(WONENEMY_NO,WONITEM_INO)=IID(1,DUMMYV)
  184. 11830 IID(1,DUMMYV)=DUMMY
  185. 11840 DUMMYV=0
  186. 11850 DUMMY =0
  187. 11860 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  188. 11870 GOTO *コマンド選択処理
  189. 11880 ''
  190. 11890 '
  191. 11900 *二択処理
  192. 11910 '
  193. 11920 NITAKU_NO=1
  194. 11930 '
  195. 11940 LINE (NITAKU_WX,NITAKU_WY)-(NITAKU_WX+108,NITAKU_WY+52),PSET,%WINC,BF,%WAKUNAI_C
  196. 11950 SYMBOL (NITAKU_WX+26,NITAKU_WY+10),YES$,FBAI,FBAI
  197. 11960 SYMBOL (NITAKU_WX+26,NITAKU_WY+30),NO$,FBAI,FBAI
  198. 11970 '
  199. 11980 *二択選択カーソル表示
  200. 11990  '
  201. 12000 IF NITAKU_NO=<0 THEN NITAKU_NO=2
  202. 12010 IF NITAKU_NO=>3 THEN NITAKU_NO=1
  203. 12020 IF NITAKU_NO=1  THEN NITAKU_CY=20
  204. 12030 IF NITAKU_NO=2  THEN NITAKU_CY=40
  205. 12040 '
  206. 12050 SYMBOL (NITAKU_WX+6,NITAKU_WY+NITAKU_CY),"▽",FBAI,FBAI,%KASORU_C,1
  207. 12060 WAIT WA:P=PAD(1):PT=PTRIG(1)
  208. 12070 IF P=0 AND PT=0 THEN *二択選択カーソル表示
  209. 12080 IF P=1 THEN NITAKU_NO=NITAKU_NO-1
  210. 12090 IF P=5 THEN NITAKU_NO=NITAKU_NO+1
  211. 12100 IF PT=1 THEN
  212. 12110   IF NITAKU_NO=1 THEN NITAKU=1:RETURN
  213. 12120   IF NITAKU_NO=2 THEN NITAKU=2:RETURN
  214. 12130 ENDIF
  215. 12140 IF PT=2 THEN NITAKU=2:RETURN
  216. 12150 SYMBOL (NITAKU_WX+6,NITAKU_WY+NITAKU_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
  217. 12160 GOTO *二択選択カーソル表示
  218. 12170 '
  219. 12180 *フロアセレクタ
  220. 12190 CLS
  221. 12200 IF SCR(1)=1 THEN SCR(1)=0 ELSE IF SCR(1)=0 THEN SCR(1)=1
  222. 12210 IF SCR(1)=0 THEN SCR(3)=1 ELSE IF SCR(1)=1 THEN SCR(3)=0
  223. 12220 'SCR(2)=1
  224. 12230 'SCREEN 1,SCR(1),SCR(2),SCR(3)
  225. 12240 'CLS
  226. 12250 CHAIN "DRAW_FLS.BAS",,ALL
  227.